' 4 


CLEAR 


10 


. GOLF 


20 


INPUT 


30 


CLEAR 


100 


FOR 2 ; 


102 


FOR P' 


104 


IF P= 



1 05 CLEAR ,i GOSUB 1 000 ; Y=~- 1 6 > GOSUB 1 l 00 > T»T+ 1 8.; GOSUB 1 1 00 i T* f "" 1 8 Y=0 GUbUB 1 80b 

1 06 Y= 1 0 .i GOSUB 1 300 i E™40 ; F=*-4 1 ; BOX E , F >1*1 > 1 

142 | I H E 3 .• ~ 4 3 .• 4 i L I H E 3 .* 4 3 .• 1 L I H E 7 9 ■ 4 3 .* 1 L 1 N E r 9 .■ ~ 4 .■ J. .* L I HE o .• 4 .■ 1 
144 pp‘j. NT 11 HOLE #".■ #1 > H; PRINT " PAR " .■ #1 .• . #1 .■ I. -£.0.' ^ i D ^ n 

i 46 W-'RND < 4 > > M*< RND < 6 >~ l >:<5 1 PR I NT " W I HD ' " >i T V*93+W i PR I NT #3 ■■ M , M » F . H . / 



1 47 CY=8 ; CX=-7 1 i PR I NT " PLAYER SCORE " 



'i 48 CX=”56 ; CY=0 > PR I NT # 1 , P , #7 , U 

1 50 A=A+JX< 1 IF A > 1 6A= 1 

151 IF fl< 1 A" 1 6 

152 X®2 ; Y=2 ; GOSUB 800+<flU0> __ ^ 0 .... TNp yv ,_ 4f , , Y v 7 -opi . i 

3 53 |„ I HE '-40 .. -20 .• 4 .; BOX ™40 > ”20 .• 60 .• 30 .■ c. > BOX -40 .■ £.0 > c. > <- I L I HE . 1 1 - • • -• 

155 C=«C+JY< 1 IF 09C-1 

1 ir lf " rr !“■;<' -\ f:=:C| 

3 70 cx®~7 1 I CY»”4@ .1 PR I NT " CLUB " .• # 1 , C > I F C* 1 PR I NT " WOOD " , ; GOTO 1 80 

172 PRINT " IRON'S 
180 IF TR< 1 >*0GOTO 150 
200 U«U+ 1 * NT” 1 0 > MU*C ; HT”0 
202 IF J” 1 GOTO 3100 






205 FOR 2=1 TO 2*< 10-0 



210 


IF 


Z# 11 GOTO 


2 1 9 


212 


D*e 


)> : 


[F M >5D 


*1 


214 


IF 


w= 


“■ 1 Y*Y+D 




2 1 6 


IF 


w= 


-~2X=X"D 




I.. 1 1 ~ 


IF 


w* 


»3Y»Y-D 




218 


IF 


w 


--4X='X+D 




219 


E=E+! 


A> F=F+Y 


i BOX 


220 


IF 


E 


\ OTP 1 !~ 
S 1 1 K. 


79 IF 


280 


GOTO 


4008 




240 


IF 


E 


>G-9IF 


E<G+i 


250 


IF 


J> 


-©IF PX 


<E,F 


290 


NE> 


<T 






291 


IF 




~ 1 GOTO 


3000 



95 GOTO 148 



610 Y=0 RETURN 



820 Y= 1 :• RETURN 
830 RETURN 
840 X= 1 .; RETURN 
850 X=0j RETURN 
-1; RETURN 
-2 i RETURN 
-2 .i Y= 1 ; RETURN 

‘"Ji > 






860 



8 ( K 






; T=0 .; RETURN 



880 X s 
890 X* 

900 X*-2;Y«-1; RETURN 
9 3 0 x*-2 : Y”-2 RETURN 
920 X*-1;Y— 2 j RETURN 
930 X=9; Y=-2.i RETURN 
=940 X=1 ; Y--2; RETURN 
950 V 



-2; RETURN 



tlm llx£TTL 1 , BOX G,i,i0,t ? .n BOX g, i, », e ; » * return 

i 1 i"n"i onw T V ’5 1 0 . 1 ; Pi OX T .> Y+2 .■ 4 .> 2 .• 1 .■ BOX T ,> i > fc> .• 2 .> 1 .■ BO a f •• t " •• ■■ 1 •' RE < -. F-.i ^ t_a 

1 200 BOX R ’’ Y , 2 ’’ 1 8 , 1 > BOX R , Y , 6 1 4 , 1 > BOX R Y .. 1 0 1 0 1 > BOX R , Y , 1 4 , 6 , 1 ■ BOX R •• Y ■■ 1 d .• 2 , 

; RETURN 

3000 BOX 4 1 U3 ! 78^ S7 *> 2^B0X ^4 1 .■ 0 ^ 1 6 > 48 .• 1 BOX 41 , 0, 40.. 48, 1 ; BOX 41 , 0, 56, 32, 1 ; BOX 
30 1 0 K*20+RND < 36 > ; L=RHD < 1 6 >”8 } BOX K .- L , 3 3 , 2 } E=4 1 +■•• E-G >>'4 > F*< F~ I • BuX L .• F > .!. , 'j 



a .i rvi c. a A A 



Ofi 1 0 K*20+RND < 36 > i L-RND < 1 6 X© ; BOX K , L , 3 .• 3 > 2 ; E*4 1 +•■ E-G >X4 ; F»< F- 1 >'<4 ■ BOX t •• F , 1 , '' , 
^ 3 ; BOX 4 1 , 0 , 79 , 84 , 3 _ 

3015 TF ABS<E=KX2IF RBS< F-L X2G0T0 3500 

3017 GOTO 148 O 

-33.00 FOR Z® 1 TO 2X10-0 
3 1 1 0 E*E+X ; F=F+Y ; BOX E , F , 1 , 1 3 

3120 IF ABS< E~K X 2 1 F ABS< F-LX2G0T0 3500 3 

-3130 IF EE >3 IF EC79IF F<43IF F> 43G0T0 3140 

3135 GOTO 4008 
3140 NEXT Z ; GOTO 148 

-3500 cy=0 } CX*30 PR I NT " SUNK ! " ; ®< P >«G< P XU 

360 F, hlERR ;PR I M l " ' PAR- " ' V# 1 ; FOR Z* 1 TO N ; PR I NT " PLAYER " #2 2 , " ■ " > # 1 •• ®< 2 > #4 J 
W (Z>~"B, ; NEXT Z 

3610 FOR 0=1 TO 1000; NEXT 0; RETURN 

4000 CY«~20 ; CX«-59 ; PR I NT " PENALTY " ; U»U+ 1 ; GOSUB 86 1 0 ; GOTO 1 4o 
Vs > ‘RETURN 





